home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #8 / K-CD-8-2002.ISO / WatzNew / data.cab / ICQ Status.pl < prev    next >
Encoding:
Text File  |  2000-07-02  |  987 b   |  27 lines
  1. #%DESCRIPTION%|=|Checks user's ICQ online/offline status, if avaliable
  2. #%USER%|?|Igor Afanasyev|Enter user's name or nick-name
  3. #%UIN%|?|8275592|Enter user's ICQ UIN number
  4. #%TITLE%|=|ICQ #%UIN% (%USER%) status
  5. #%MESSAGE%|=|%1
  6.  
  7. # ------------------------------------------------------------------------------
  8. # ICQ STATUS CHECK script by A.I.Studio / Igor Afanasyev
  9. # ------------------------------------------------------------------------------
  10.  
  11. require 'http.lib';
  12.              
  13. # ------------------------------------------------------------------------------
  14.  
  15. $User = $ENV{'USER'};
  16. $Uin = $ENV{'UIN'};
  17.  
  18. # ------------------------------------------------------------------------------
  19.  
  20. $c = &HttpGet('online.mirabilis.com',80,"/scripts/online.dll?icq=$Uin&txt",always);
  21. ($c != 0) && &ERR("Can't retrieve user status");
  22.  
  23. $msg = "$User is <B>$HttpHeader</B>";
  24. ($HttpHeader eq 'NA') && ($msg = "$User doesn't permit to view his(her) ICQ status");
  25.  
  26. &MSG("$msg");
  27.